********************************************
* NAMA : KASMO ADIYANTO			   *
* EMAIL: kasmoadiyanto@gmail.com	   *
*	 kasmoadiyanto@yahoo.co.id	   *
*	 momo_ch410@yahoo.com		   *
* Blog : http:\\adiyantokasmo.blogspot.com *
********************************************

Program Komisi_Salesman;
(*--------------------------------------------------*)
(*    Dibaca nama dan hasil penjualan salesman      *)
(* kemudian hitung besarnya komisi sebesar 5% dari  *)
(* hasil penjualan dan tampilkan nama dan komisinya *)
(*                     ke layar                     *)
(*--------------------------------------------------*)

Uses CRT;
Var
  Nama           : String;
  NilaiPenjualan : Real;
  Komisi         : Real;
Begin
Clrscr;
  Writeln ('Program Mencari Nama dan Komisi');
  Write   ('Masukan Nama :'); Readln (Nama);
  Write   ('Masukan NilaiPenjualan :'); Readln (NilaiPenjualan);
  Komisi  := (0.05 * NilaiPenjualan);
  Writeln ('Hasil dari :',Nama);
  Writeln ('Hasil dari :',Komisi:6:2);
Readln;
End.